Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №18

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №18 Лабораторна робота №18. Тема: Створення модулів користувача. Мета: Вивчення і застосування принципів модульного програмування. Вивчити питання: Модульне програмування. Структура модуля. Компіляція і використання модулів. Завдання до роботи: Код програми, побудованої при виконанні лабораторної роботи №16, розділити на процедури за змістом. Зі складених процедур утворити окрему бібліотеку в формі модуля. Скласти програму, яка використовує скомпільований модуль для побудови зображення, у розділі операторів містить тільки виклики процедур. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. ХІД РОБОТИ program graphex; Uses MyGraph; Begin DoGraphics; parallelepiped; FillCircle; FillSector; GreenEllipse; GreenFillEllipse; YellowArc; CloseGraphics; end. unit MyGraph; interface procedure DoGraphics; procedure parallelepiped; procedure FillCircle; procedure FillSector; procedure GreenEllipse; procedure GreenFillEllipse; procedure YellowArc; procedure CloseGraphics; implementation uses Graph; procedure DoGraphics; var gd, gm : integer; {integer הכ ֿׂ} begin gd:=Detect; InitGraph (gd, gm, 'c:\bp\bgi'); SetBkColor(black); ClearDevice; end; procedure parallelepiped; begin SetColor(blue); SetFillStyle(SlashFill, blue ); Bar3D(170, 50, 200, 150, 50, True ); end; Procedure FillCircle; begin SetColor(LightMagenta); Circle(70, 70, 50 ); SetFillStyle(XhatchFill, LightMagenta); FloodFill(70, 70, LightMagenta ); end; Procedure FillSector; begin SetColor(red); SetFillStyle( LineFill , red); Sector(10, 340, 0, 30, 250, 150); end; procedure GreenEllipse; begin SetColor(green); Ellipse(110, 210, 0, 360, 100, 50); end; procedure GreenFillEllipse; begin SetFillStyle( HatchFill, green ); FillEllipse(110, 210, 100, 50); end; procedure YellowArc; begin SetColor(Yellow); Arc(160,415,90,30,60); end; procedure CloseGraphics; begin Readln; CloseGraph; end; // ВИСНОВОК За допомогою даної лабораторної роботи я вивчила принципи модульного програмування та навчилася їх застосовувати.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини